home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1995 #5 & #6
/
Amiga Plus CD - 1995 - No. 5 and 6.iso
/
pd
/
serien
/
purity
/
nr.37
/
pointer
/
heart-pointer.p
< prev
next >
Wrap
Text File
|
1994-09-17
|
2KB
|
68 lines
{ Programm: Pointer (Heart)
~~~~~~~~~
Sprache: KickPascal2.12/OS2
~~~~~~~~
Sinn: BusyPointer...
~~~~~
Autor: PackMAN
~~~~~~ c/o Falk Zühlsdorff
Lindenberg 66
D-98693 Ilmenau/Thüringen
Copyright: GIFTWARE, jeder Nutzer sendet mir ein z.B. eine
~~~~~~~~~~ Disk mit guten C / PascalSource zu folgenden
Themen: Packeralg. / Graphikdruck /
Printer.device oder gute neue PD zu... }
Program Pointer;
USES Intuition;
TYPE Poifeld = array[1..34] of Word;
VAR Win : ^Window;
Msg : ^IntuiMessage;
e : boolean;STATIC;
Poiptr : ^Poifeld;
waitreq : Requester;
req : boolean;
BEGIN
Poiptr:=NIL;
Poiptr:=PTR(Alloc_Mem(SizeOf(Poifeld),MEMF_CHIP+MEMF_CLEAR));
IF Poiptr=NIL THEN exit;
Poiptr^:=Poifeld( $0000,$0000,$8080,$8d00,$1818,$0000,$7e7e,
$0000,$7ffe,$0000,$ffff,$2000,$ffff,$2000,
$ffff,$3000,$ffff,$3000,$7ffe,$1800,$7ffe,
$0c00,$3ffc,$0000,$0ff0,$0000,$03c0,$0000,
$0180,$0000,$0000,$0000,$0000,$0000);
Win:=Open_Window(200,0,300,100,$0203,_CLOSEWINDOW,
ACTIVATE+WINDOWCLOSE,
'Busy (wait 2 Sec.)',Nil,0,0,0,0);
IF Win=Nil THEN exit;
e:=false;
InitRequester(^waitReq); {Req: 0*0*0*0}
req:=Request(^waitReq,Win);
SetPointer(Win,PoiPtr,16,16,-6,-1);
delay(100);
ClearPointer(Win);
EndRequest(^waitReq,WIN);
SetWindowtitles(Win,'Clock-Pointer © by PackMAN',Nil);
REPEAT
Msg:=Wait_Port(Win^.UserPort);
Msg:=Get_Msg(Win^.UserPort);
Reply_Msg(Msg);
IF Msg^.Class=_CLOSEWINDOW THEN e:=true;
UNTIL e;
Close_Window(Win);
Free_Mem(Long(Poiptr),sizeof(Poifeld));
END.